home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / bbactlc.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-12-27  |  1.3 KB  |  27 lines
  1. (*===========================================================================*)
  2. (* Chain action routines                                                     *)
  3. (*                                                                           *)
  4. (*   Copyright 1990 by H. Roy Engehausen.  All rights reserved.              *)
  5. (*   This software may be freely distributed and used, but it may not        *)
  6. (*   under any circumstances be sold by anyone other than the author.        *)
  7. (*   It may be distributed by a commercial company as long as it is          *)
  8. (*   for no cost.                                                            *)
  9. (*                                                                           *)
  10. (*===========================================================================*)
  11.  
  12.   (*=========================================================================*)
  13.   (* Sub procedure to chain an action                                        *)
  14.   (*=========================================================================*)
  15.  
  16.   PROCEDURE chain_action;
  17.     BEGIN;
  18.  
  19.       IF last_msg_action = NIL THEN
  20.         first_msg_action := new_msg_action
  21.       ELSE
  22.         last_msg_action^.next_action := new_msg_action;
  23.  
  24.       last_msg_action := new_msg_action;
  25.  
  26.     END;
  27.